brain<-read.csv('acc.csv',header=FALSE)[,1:3]

ten_reps<-readRDS('first_ten.rds')[1:5]

for (i in ten_reps){
  open3d()
  points3d(brain)
  segments3d(i,lwd=2,col='red')
}

You must enable Javascript to view this page properly.